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FACILITY: VAX MACRO ASSEMBLER OBJECT LIBRARY 
ABSTRACT: 


The VAX-11 MACRO assembler translates MACRO-32 source code into object 
modules for input to the VAX-11 LINKER. 
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-ENDC ignored after locat® Label in conditional suppressed 
code. (CACTIF.MAR 02.0 
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v01.13 RNOO23 R. Newland 3-Nov-1979 
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message file. 

RNOO14 ewland 12-Oct-1979 

nee for G “aging H_ floating and Octaword data types 

eyes eyband 11-0¢t-1979 

problen. with” top 32 bits of quadword number. 
ah 
RNOOO8 R. Newland 29-Aug-1979 

31 character symbols 

RNOOOS R. Newland —— -1979 

Variable symbol storage and remove .ALIGN LON 


and .DEBUG statements 


008 B. Schreiber 22-JAN-1979 
Better bookkeeping of pages allocated so they can 
be deallocated on multiple assemblies. 
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IONS =SEP-1984 CHS MACRO. SRCJSCANER.MAR; 1 - (3) | 
.SBTTL DECLARATIONS 


t INCLUDE FILES: 


MACSSCANER SCANNING 
V06=000 DECLARAT 


AR 
79 
0 
4; 
5 : MACROS: 
00 Oa? 
09 8 SMAC_GENVALDEF SUSEFUL SYMBOLS 
0 $MAC~SYMBLKDEF i SYMBOL BLOCK DEFINITIONS 
99 0 $MAC~GRAMMARDEF S TERMINAL GRAMMAR SYMBOLS 
0 9 SMAC~ INTCODDEF ‘INTERMEDIATE CODE DEF INTIONS 
00 36 SMAC~CTLFLGDEF SCONTROL FLAG DEFINITIONS 
00 9 SMAC~CRFLAGDEF SDEFINE CREF CONTROL FLAGS 
000 «94 PRDE ;DEFINE OPERAND DESCRIPTOR BITS 
000 95 SMACASGDEF ; Define message codes 
000 36 
0000 «=«97' gx 
0000 98 : EQUATED SYMBOLS: 
0000 —«99:: 
0000 100 
000 101; 
000 108 > OWN STORAGE: 
000 103: 
000 104 
00000000 105 .PSECT MACSRO_DATA,NOEXE ,NOWRT,GBL,LONG 
0000 106 
0000 10 
9000 108 TWO_CHR_REG_N TABLE OF NAMES FOR TWO CHAR REGISTE.S 
53 aoe 109 Rieti * /RORIRZRBRGRSROR7RBROSPPCAPFPIVDV/ 
41 001 
020 0020 110 TWO_CHR_REG_SIZ=.-TWO_CHR_REG_NAM :SIZE OF TABLE 
0 111 TWOTCHR-REG-VAL: VALUES ASSOCIATED WITH ABOVE REGS 
90 $i 112 «BYTE 0,1,2,3,4,5,6.7,-8,9,14, 1} 12,13,14,15 
0 113 
vo008) 114 .PSECT MACSRO_DATA,NOWRT ,NOEXE , GBL ,LONG 
003 115 MACSAL_RGNM_TAB: : “sPOIN NTER TO REGISTER NAME SYMBOL 
030 116 BLOCKS (USED FOR CREF 
0030 11 LIRP FOO, <RO,R1.R2,R3,R4,.R5,RO_R7,RB-RO_R1O,R11 AP.FP.SP,PC> 
030 118 *PSECT MAC$RO BATA NOWRT ,NOEXE,GBL, LONG 
0 119 -LON NG REG SYAB_'F 
0 120 PSECT MACSRU DATA,WRT ,NOEXE , LONG 
0 121 $MAC_INSERT_SYM 'FOO,,,REG_SYMB_'FOO 
0 1 é SMAC~ INSERT ~SYM F090 
00000030 1 ENDA 


MACSSCANER SCANNING ROUTINES 16-SEP-1984 02:14:19 VAX/VMS Macro v04-00 Page 
y04~000 MACSSYMBOL SCAN NEXT SYMBOL met 7 CHS YRACRO SRE SCANER.MAR; 1 . 
‘ 5 .SBTTL MACSSYMBOL SCAN NEXT SYMBOL 
4 159 s+ 
‘ ! 8 : FUNCTIONAL DESCRIPTION: 
9 : THIS ROUTINE ACCUMULATES A SYMBOL NAME IN 'MACSAB_TMPSYM’. 
4 131; THE SYMBOL IS THEN LOOKED UP IN THE APPROPRIATE SYMBOL 
Sorte : ; TABLES (BASED ON THE POSITION IN THE LINE). THE TOKEN TYPE 
6 133; 1S RETURNED IN R8 AND THE POINTER TO THE SYMBOL BLOCK 
2 ! : ; IS RETURNED IN 'MACSGL_VALUE’. 
; ini 
0000 00 8 .PSECT MACSRO_CODE_P1,NOWRT,GBL,LONG 
00 140 MACSSYMBOL:: 
OOEF 30 0000 141 BSBW MACSSYMSCNUP yACCUMULATE SYMBOL NAME 
21 68 «01 1 00 14 BBC #FLG$V_BOL,(R11),100$ :BR IF NOT AT BEGINNING OF LINE 
FFF6" 30 0 14 BSBW MACSSKIPSP SKIP OVER SPACES 
3A SA O91 OD0ASs«i14K CMPBsoR10, #*A/:/ [DID WE FIND A LABEL? 
04 12 000D 145 BNEQ 10$ :1F NEQ NO 
. 2% O00F 146 BSBB  MACSCHKREG TYES--RETURN TOKEN TYPE IN RB 
. 9011 167 BRB 200$ :GO0 RETURN 
i 149 : NO LONGER AT BEGINNING OF LINE--SEE IF ASSIGNMENT 
68 02 CA 001 151 jos: BICL2 #7 GSM BOL, (R11) :D0 NOT ALLOW ANY MORE LABELS 
3 SACO 0018 138 CMPB. s«R10, #*K/=/ SASSIGNMENT STATEMENT? 
OD 12 001 15 BNEQ 100 :1F NEQ NO 
58 10 0018 154 BSBB  MACSCHKREG SYES=-RETURN TOKEN TYPE IN R8 
Oc 58 91 O01D 155 CMPB—séR8. #ID ‘WAS IT AN ID? 
4D le 9020 156 BNEQ 206$ :1F NEQ GO EXIT 
49 68 0D F3 99 137 BBCS #F.GSV_OPRND, (R11) , 200 :YES--NOW IN OPERAND FIELD 
036 159 ; 
09 199 3 IN OPERAND FIELD? 
04 6B OD €1 00 ; 168 100$: BBC #FLGSV_OPRND,(R11),110$ ;BR IF NOT IN OPERAND FIELD 
47 10 00 C 163 BSB8 BACSCHRREG ;RETURN TOKEN TYPE IN RB 
53 0000'CF 3 0 6 165 110$: MOVAB W*MACSAL_UMCHSHTB,R3 : Look in user macro table 
O20F 3 0 166 BSBW MACSSRCSYMTAB flee 
05 50 +€9 B 167 BLBC ~—_-RO, :1F LBC THEN NOT FOUND 
58 OD 9A 99 B 168 MOVZBL #MACTXT,RB tFOUND=-RETURN TOKEN FOR MACRO 
. > a O5E 189 BRB 200$ 
04 171 : NOT A MACRO=-LOOK THROUGH PERMANENT SYMBOL TABLE 
55 0000'CF 09 4 138 120$: MOVL W*MACSGL_OPCLSTPT,RS :GET POINTER TO USER-DEFINED OPCODES 
06 1 4 174 BEQL [IF EQL NONE DEFINED 
O1F 30 4 175 BSBW MACSSRC_LIST [SEE IF USER-DEFINED OPCODE 
0D 5 4A 1% BLBS RO 71F LBS YES--GO PROCESS IT 
53 00000000'EF 4D 177 122$: MOVAB MACSAL_PRMHSHTB,R3 [NO=-LOOK IN PERMANENT SYMBOL TABLE 
gro 54 178 BSBW MACSSRCSYMTAB ee 
12 5 3 57 (17 BLBC . :1F LBC THEN NOT FOUND 
58 0B Al A 005A 180 124$:  MOVZBL SYM$B_TOKEN(R1),R8 [PICK UP TOKEN FOR SYMBOL 
0 58 91 OOSE 181 CMPB ssa RB, #DOPCODE ‘WAS THIS AN OPCODE? 
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TINES 16-SEP-1984 02:14:19 VAX/ 
CAN NEXT SYMBOL ae ECS ERac 
1 3 BEQL 125$ :1F EQL YES 
; BSBW  MACSCREF_DIR :NO--DIRECT 
185 125$:  BBCS 4FLGSV_OPRND, (R11) ,2008 ;NOW IN OPE 
Bae ™ 

g : NOT FOUND==TRY AN IMPLICIT .MCALL 

1 0 13 i308: BSBW 3s MACSIMPLMCALL 

191 BRB 2008 

198 § SET POINTER TO SYMBOL BLOCK IN MACS$GL_VALUE 

195 2008: MOV R1,W*MACSGL_VALUE 

196 2208: RSB 
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RETURN WITH TOKEN 
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MACSSCANER SCANNING ROUTINES 16=SEP=1984 9 VAX/VMS Macro V04-00 Page 6 
yO4e000 MACSCHKREG IS SCANNED SYMBOL A REGISTER 5=SEP-1984 4 Bits 4 MACRO. SRCJSCANER.MAR; 1 vf (a) 
? 198 .SBTTL MACSCHKREG IS SCANNED SYMBOL A REGISTER | 
7 g9 p++ 
, o1 ; FUNCTIONAL DESCRIPTION: | 
? a8 : THIS ROUTINE CHECKS TO SEE IF THE SYMBOL SCANNED BY MACSGETSYM 
7 4: IS A REGISTER NAME, AND IF NOT, SEARCHES FOR IT IN THE USER'S 
? 05 ; SYMBOL TABLE. IF fHE SYMBOL I$ NOT IN THE USER'S SYMBOL TABLE | 
07 06 ; IT IS INSERTED. ANY CASE, THE TOKEN VALUE RETURNED IN R 
075 207 ; IS EITHER '1D' OR 'RRREG'. JF 'RRREG', THE REGISTER VALUE 
07 08 ; WILL BE RETURNED IN R1. IF 'ID*, THE SYMBOL BLOCK ADDRESS 
$f ; WILL BE RETURNED IN R1. 
0079 + 
007 le MACSCHKREG: | 
O2pc 30 9079 1 BSBW MACSREGIS :SEE IF SYMBOL 1S, ,A REGISTER NAME | 
58 D5 0078 214 TSTL = RB ‘IS IT A REGISTER? 
06 12 OO7A 215 BNEQ 108 tIF NEQ YES 
0101 30 O007C 216 BSBW § MACSINSUSRSYMTB [NO--INSERT SYMBOL IN USER SYMBOL TABLE 
58 0C) «(9A «(OOO7F 17 MOVZBL #1D,R8 SRESULT ALWAYS ID 
05 008¢ 18 10$:  RSB 
0083 0 .SBTTL MACSSYMNUM LETTERS A-F CAN START SYMBOL OR NUMBER | 
0083 : MACSSYMNUM: : | 
0000'CF 91 008 CMPB = W*MACSGB_RDXNDX,- TARE WE GOING TO GET HEX NUMBER? 
03 0087 4 RRD X$V HEX Pj eee | 
38 48613 «0088 5 BEQL MACSNUMBER ;1F EQL Y 
42 8F 5A 91 OOBA 226 CMPB  =—s- R10, #*A/B/ [CAN SYMBOL BE 'B*'? 
09 13 OO8E 927 BEQL MAC$XSYMBL : YES==SE pe! 
62 8F SA 91 0090 228 CMPB = R10, #*A/b/ OR LOWER CASE 'b*'? 
3 13 0094 29 BEQL MAC$XSYMBL :YES== y | 
FF67. 31 0096 330 BRW MACS$SYMBOL :NO=-GO SCAN SYMBOL 
0099 332 .SBTTL MACSXSYMBL NEXT CHARACTER CAN BE AN UPARROW | 
099 S3¢ p++ 
099 35 ; CHECK IF NEXT CHARACTER IS AN UPARROW. IF IT IS THEN THIS IS | 
0099 336 : A WIDTH INDICATOR. 
Nites $3 je 
0099 9 
0099 240 MACSXSYMBL:: 
SE 8F O000'DF 91 0 99 241 CMPB = W*MACSGL_LINEPT, #*A/*/ NEXT CHAR AN UPARROW? 
3 13 009F 4¢ BEQL 20% TIF EQL YES=-CONTINUE 
FF5C 31 OA1 263 10$: BRW MACSS =NO= ee0 SCAN A SYMBOL | 
0000'8F SA 3A OOA6 244 20$: LOCC R10, LENSK XUPTAB, = ; LOOKUP CHARACTER IN XUPTAB 
00000000 * GF Ad = 245 G*MACSAB_XUPTAB ; to see if it can receded nor 
a 13 AE 46 BEQL 108 [IF EQL NOT IN TABLE--SCAN SYMBOL 
52.51  00000000'8F C3 008 4 SUBL3 #MACS$AB_XUPTAB,R1,R GET INDEX INTO TABLE FOR CHARACTER | 
58 00000000' EFAS 9A 00B 48 MOVZBL MACSAB B UPTORENCR SS. RB ; :AETREIVE TOKEN VALUE 
10 00C 4 BSBB SCAN OVER THE CHARACTER | 
FF3B" 31 00C 50 30$: BRW MACSGETCHR :SCAN OVER UPARROW AND RETURN 
c 31 : WITH TOKEN VALUE 
C3 38 .SBTTL MACSNUMBER ACCUMULATE NUMBER 


MACSSCANER SCANNING ROUTINES 16-SEP-1984 14:19 \VAX/VMS Macro v04-00 Page 
y0s~000 MACSNUMBER ACCUMULATE NUMBER oe et ¢ 49:51 YRACRO SRe SCANER.MAR; 1 ° 
c 5 MACSNUMBER:: 
50 000 tt GA C § MOVZBL W*MAC$GB_RDXNDX,RO ;GET INDEX FOR NUMBER GETTER 
50 00D aah? 0 CA W*NUM_TABLROJ,RO ;GET ADDRESS OF ROUTINE TO READ NUMBER 
6 bg 8 JMP (RO) ;AND GO GET THE NUMBER 
4FC* D 60 NUM_TAB:.LONG MACSBINNUM 2 (9) BINARY 
504' D6 61 ~-LONG MACSOCTNUM 301) OCTAL 
421° DA 86 -LONG MACSONUMBER att DECIMAL 
4 50C° D 6 » LONG MACSHEXNUM 3(5) HEX 
. E 64 »LONG MACSGETFLOAT 3(4) F FLOATING 
0000000' E 65 -LONG MACS$GETDOUBLE 3(5) D FLOATING 
4464 00° Bee 06 ~LONG MACSGETGFLOAT 3 (9) G FLOATING 
0000000' EE 6 ~ LONG MACSGETHFLOAT 3(7) H FLOATING 


d 9 | 
MACSSCANER SCANNING ROUTINES 16-SEP-1984 14:19 fared Macro v04-00 Page 
y055000 MACSSYMSCN SCAN FOR SYMBOL NAME -SEP-1984 ge: 49:51 YRACROSRe SCANER.MAR; 1 ° &) 
: $8 -SBTTL MACSSYMSCN SCAN FOR SYMBOL NAME 
F 71 344+ 
F re 3 Tuts poutine IS CALLED BY SEVERAL DIRECTIVES TO SCAN 
OF 73 3 AME FROM THE INPUT LINE. Re ie fe AND TABS 
H a : ARE TE WORED. IF NOT FOUND, IS SET TO 0. 
it 7 
F 4 -ENABL LSB 
OOF 79 MACSSYMSCNUP: : 
18 19 Bae 0 BSBB MACSSYMSCN ;SCAN SYMBOL NAME 
115 E F4 1 BLBS RO,5$ ;IF LBS CVT 10 _— CASE 
24 11 OOF? Be BRB 30$ TELSE JUST RETURN 
OOF9 8 
OOF9 84 MACSSYMSCNUP1:: 
11 10 QOOF9 85 BSBB MACSSYMSCN ;SCAN THE SYMBOL NAME 
55 DD OOFB 86 PUSH R5 SSAVE RS OVER MOV 
0000' CF 20 28 OOFD 87 MOVC Se YNSK gee W*MACSAB_ TMPSYM,=- ;COPY NAME TO TEMP BUFFER 
0000' CF 9108 88 W*MACSAB_TMPSY1 
55 B8EDO 010 89 POPL RS TREST ORE RS 
35 10 0108 90 5$ BSBB MACSCVT_SYM_UP ;CONVERT TO UPPER CASE 
OE 11 O10A 91 BRB 20$ [AND RETURN 
010C 35 
010C 2935 MACSSYMSCN:: 
FEF1® 30 010C 294 BSBW MACSSKIPSP ;SKIP LEADING SPACES 
EO O10F 295 BBS #CHRSV_SYM_C “BR ANCH IF CHAR CAN START A SYMBOL 
03 0000°CA 0111 296 W*MACSAB_ CASK. ReaB(RI0), 16s 
50 D4 O115 97 CLRL RO ;NO--RETURN NO SYMBOL SCANNED 
05 0117 98 RSB 
57 10 0118 99 10$: BSBB MACSGETSYM sYES--SCAN THE SYMBOL 
50 01 9A O11A 00 3 $ MOVZBL #1,RO ;RETURN SYMBOL SCANNED 
05 011D $03 0$: RSB 
O11E 8 -DSABL LSB 
O11E 30 
O11E 304 -SBTTL MACSLCLSKIP SCAN FOR LOCAL LABEL 
O11E 305 
O11E 06 ;++ 
O11E 07 ; This routine skips over a string which looks like a local label. 
Be BS 3 ; A false status return tadicates that a syntax error was detected. 
O11E 10 * ENABL LSB 
O11E 11 
Bie \¢ MACSLCLSKIP:: 
FEDF* 30 11E 1 bsbw MACSSKIPSP :Skip leading spaces 
4 €1 4 1 14 bbc #CHRSV_NUM B sLocal labels start with a decimal no. 
15 0000'CA 123-315 w“°MACS$AB CASK. ReAB(ri0), 26$ 
FED6" 30 0127 16 10$ bsbw MACSGE TCAR :Move to next character 
04 £0 OQ12A 1 bbs PCHRSY. NUN_B Continue to consume decimal digits. 
F7 0000'°CA 12¢ 18 wAMACSAB CASK ReAB(rl0), 16$ 
24 SA 91 (O01 9 1 cmpb r10.8 a/$/ zEnsure trailing Dollar Sign. 
07 1s 1 0 bneq 
rece” 3 1 ; 1 bsbw MACSGETCHR :Consume it 
0 1 3 ! ; § Sat #1,r0 :The syntax. was correct. 
rs 
50 D4 O13C 4 20$: clel r0 sLocal Label was not found. 
05 O13E 5 rsb 
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y04~000 MACSLCLSKIP SCAN FOR LOCAL LABEL g- EP=1984 g¢ 3:5) MACRO. SRCJSCANER.MAR; 1 e ib VO 
13F 
F 5 .DSABL LSB 
13F § .SBTTL CONVERT SYMBOL TO UPPER CASE FOR TABLE SEARCH 
13h 83) sae 
F : : FUNCTIONAL DESCRIPTION: 
135 4: THIS ROUTINE CONVERTS THE SYMBOL IN MACS$AB_TMPSYM 
13F 5: TO ALL UPPER CASE CHARACTERS AND COMPUTES A NEW HASH VALUE 
013F : : FOR THE SYMBOL 
13F : 
Bist $B i 
013F 40 MACSCVT_SYM_UP:: 
51 O000'CR 9€ O13F 341 MOVAB  W*MACSAB_TMPSYM,R1 :POINT TO THE SY 
28 81 9A 0144 4g MOVZBL (R1)+,R2~ :GET SYMBOL CHARACTER CO 
50 52)COiO C047? 84 MOVL _R2,RO S INITIALIZE HASH VALUE TO COUNT 
53 B1 SGA (O14A 34K (108: MOVZBL (R1)+,R3 [GET NEXT CHARACTER 
61 BF 33 91 O14D 43 CHPB RS ,#°A/A/+*x20 SCAN CHARACTER BE LOWER CASE? 
7A 8F 38 91 0153 347 CMPB sa R3, #*A/2/4*X20 SSTILL CHECKING FOR LOWER CASE 
0? 1A 0157 348 BGTRU 208 ‘IF GTRU NOT LOWER CASE 
53 20 BA 0159 349 BICB2 #*X20,R3 ;YES==CONVERT TO UPPER CASE 
FF Al 53 90 015¢ 350 MOVB. —R3,-1(R1) ‘STORE IMPROVED CHARACTER 
50 53 CO 0160 351 208 ADDL2 R3.RO ;IMPROVE HASH VALUE 
£4 52 «FS «(0163 33¢ SOBGTR R2.10$ LOOP FOR WHOLE NAME 
0000'CF SO FFFFFF8O 8F cB 0166 333 BICL3 #*C<HASHSZ>,RO,W*MACSGL _ASHVAL ;TRIM TO HASH TABLE SIZE 
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= ~SBTTL MACSGETSYM ACCUMULATE SYMBOL NAME 
; FUNCTIONAL DESCRIPTION: 


THIS ROUTINE READS THE INPUT STREAM AND ACCUMULATES A SYMBOL 
NAME AND ITS HASH VALUE. 


; CALLING SEQUENCE: 

JSB s MACSGETSYM 

: INPUT PARAMETERS: 

R10 FIRST CHARACTER OF SYMBOL NAME 
IMPLICIT INPUTS: 


: NONE 


MACSSCANER 
06000 


R 
YM 


; OUTPUT PARAMETERS: 


MACSAB_TMPSYM CUNTAINS: -BYTE SYMLEN, .ASCI1/SYMBOLNAME / 
MACSGL_HSHVAL THE HASH VALUE FOR THE ACCUMULATED SYMBOL 


OWONAUE WO OONAUE WN OOONG CZ 


OOO 000000009 09 09 09 0909 08 SIN SINS NINN NIAAA AAO AOAOOOUUIUM OO 


Pe ee ae Oe oe oe ot ot ot od ok eee ell elle eee eee ee eee ee eee ee eee ee ee ee 


ek ele pee ie te le ts Je ls apap > > > > > > > > > > > > > > > > 4 


me ee ee ee a a td ed sd od 8 ds 2 


0 : IMPLICIT OUTPUTS: 
¢ NONE 
4 > COMPLETION CODES: 
6 NONE 
: : SIDE EFFECTS: 
0 NONE 
. 
94 
95 
96 MACSGETSYM:: 
007 BB 97 PUSHR #*M<R4,R ;SAVE REGISTERS 
56 O000'CF 9£ 98 MOVAB U*HACSAB + nee An, R6 ‘POINT TO TEMP SYMBOL STORAGE | 
00 6€ 2c 99 MOVCS #0,(SP),#0,- CLEAR THE TEMPORARY SYMBOL NAME 
46 00 #SYMSK_MAXLEN+1, (R6) fee 
55 0146 9E 91 MOVAB 1(R6),R5 ‘POINT TO FIRST CHAR OF NAME 
‘ : (FIRST BYTE HOLDS SYMBOL LENGTH) | 
1E OD 6 PUSHL #SYM$K_MAXLEN-1 :SET MAX LENGTH 131 CHAR COUNTED) | 
85 SA 90 4 MOVB.  R10,(R5)+ :STORE FIRST CHAR OF NAME 
54 SA 9A 05 MOVZBL R10 Re :GET FIRST CHAR AND INIT HASH VALUE | 
07 : LOOP, COLLECTING SYMBOL NAME AND HASH VALUE | 
FE71° 30 $8 10S: BSBW MACSGETCHR sGET NEXT CHARACTER OF NAME 
E1 10 BBC #CHRSV_S “BRANCH IF NOT LEGAL FOR SYMBOL | 
OC 0000'°CA 1 UERACSR_ CASK. "FaacRi0). 30$ 
6— 07 12 208: DECL (SP) ;COUNT THE CHARACTER | 
| 
| 
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F319 0197 413 BLSS 108 :1F LSS NAME IS TOO LONG--DO NOT | 
199 414 + STORE 
85 5A 20 199 415 MOVB sta iae SSTORE BYTE IN TEMP SYM BLOCK | 
4 Sa CO 019¢ 416 ADDL2 R10.R4 tACCUM NEW HASH VALUE 
és 11 19 41 BRB SLOOP FOR END OF Vey RBOL | 
1Al 619 : NAME IS ACCUMULATED | 
53. 8B 00 1A1 421 308 MOVL  (SP)+,R3 :GET <15=LENG 
1 1 106 : BGEG 40S :I1F GEQ LEGAL SYMBOL LENGTH 
534 1A6 4 CLRL ORR :T00 LONG--MAKE IT MAX LENGTH 
0000'CF D5 OIA 424 TSTL WAMACSGL_MCLVL TARE WE IN A MACRO DEFINITION? 
10 146 O1AC 425 BGTR tos TIF GTR YES=-SKIP ERROR MSG 
1AE OG § SINTOUT_LW INT > ISSUE WARNING IN PASS 2 
1AE canags Tt TL sta eat So RACSGL a INEPT? ; Symbol name exceeds nen Length 
53 iF «653 «6C3 O1BE 428 40$ SUBL ,WSYMSK_MAXLEN,R sCOMPUTE # CHARACTERS IN SYMBOL 
66 53 90 O1C2 429 MOVB R *(R6) SSTORE # OF CHARS IN MACS$AB_TMPSYM 
54 53 cO 01C5 430 ADDL2 R3,R4 [HASH VALUE IS SUM OF CHARACTERS 
1¢8 431 ‘PLUS THE NUMBER OF CHARACTERS 
QOOO'CF 54 FFFFFF80 8F CB O1CB 4 : BICL3 #°CCHASHSZ2 . R4,- ‘TRIM TO HASH TABLE SIZE 
1D 4 MACS$GL_HSHVAL tAND STORE IN HASH VALUE 
0070 8F BA 01D 434 POPR woRcRa R5,R6> 
05 0106 435 


| 
| 
| 
| 
Ree | 
| 
| 
| 
| 
| 
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10? it .SBTTL MACSXUPARROW CHECK CHARACTER AFTER ‘*"" 
107 & :+¢ 
: HIS ROUTINE RETURNS IN R& THE TOKEN CORRE SPONDING TO THE 
15 rk : CHARACTER FOLLOWING THE UPARROW. IF THE CHARACTER IS NOT 
1D? 442: IN THE TABLE THIS ROUTINE BRANCHES TO MACSCHRERR TO REPORT | 
1p? ce$ : THE ILLEGAL CHARACTER. 
ib) 445 : NOTE THAT THIS ROUTINE IS JMP°ED TO BY MACSTOKEN. | 
ers a 
0 O07 2e8 NCSU ARTE ACSCETCUR :GET THE NEXT CHARACTER | 
0000'8 a A O1DA 450 LOCC «R10, #LENSK_UPXTAB, - ‘LOOK UP CHARACTER IN UPXTAB 
90000000" $f 1DF = 451 G*MACSAB_UPXTAB ; to see if | Lopes 
164 45 BEQL 10% [IF EQL THEN | PeGare CHARACTER | 
2 51 00000000" a 166 re SUBL3 mae $88 OB TORE Rt .R2 ins Ait P Fonte TABLE FOR CHARACTER | 
on mtportant Eras, 3 Ha 436 oe marseeren oe :GET THE FIRST REAL CHARACTER | 
o1F 436 SAND RETURN 
OIF 458 ; CHARACTER IS ILLEGAL 
FEO4' 31 OIF 460 ios: BRW MACSCHRERR :REPORT ILLEGAL CHARACTER 
oir 46¢ .SBTTL MACSXPOUND A POUND SIGN WAS DETECTED 
; 
SFE rhe: ps THIS ROUTINE LOADS MACSGB_ RDXNDX BASED ON THE OPCODE TYPE 
O1FC 8466: FOUND IN MACSGL_MOPPTR 
rt 
' tH 236 cece W°MACSGL_MOPPTR,RO :GET PTR TO OPERAND DESCR. BYTE 
a eng st 8 0201 471 BEQL 10$ ¥ : TIF EQL NOT FLOATING POIN 
95 000s tre Ely RD HHLOAT ING” OPERA! 
8 18 : 
),2$ :IF NOT H FLOAT THEN SKIP 
veo Hh Se SE, sage ttagercenn ee EY ae 
0000' CF 0 OD 476 a mae unacéce _RDXNDX | 
2 11 0210 47 
: AT, (RO) ,4$ iL NOT G FLOA Oar THEN SKIP | 
07 60 $5 £} 512 Gre zs: BEC, Foe certonT.cROD.48 IF NOT FLOAT THEN sul | 
0000' CF 0 18 480 ie ne W"MACSGB._ RDXNDX * | 
17, 11 021B «4 
: ,(RO),6$ ;1F NOT D FLOAT THEN SKIP | 
= of 5) 8 4 tbs es Seve PROXSV B BLE, hein SYES=-USE D FLOAT READER | 
0000' CF 0 3 tb ate W*MAC$GB_RDXNDX | 
f 90 3 tb 6$: BOVB #ROXSV_FLOAT SUSE F FLOAT READER | 
0000' CF 0 oe $ ‘we UAMACSGB_ RDXNDX | 
$3 90 4 d § 10S: SOvB #ROXSV_DECIMAL SELSE USE DECIMAL | 
ieee , 294 upnacsé RDXNOK RETURN TOKEN OF POUND SIGN | 
"= rote” 4 ; 133 _m a MACSOE TCHR ‘READ NEXT CHARACTER AND RETURN | 


—— 
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~SBTTL INSERT/SEARCH USER SYMBOL TABLE 


~+— 
mm 
rw 


;++ 
; FUNCTIONAL DESCRIPTION: 


Viet canon IS CA TO LOOKUP A SYMBOL IN THE USER SYMBOL 


: LLED TO 
: AND IF THE ENTRY IS. AT MACSINSUSRSYMTB, THEN TO INSERT | 
; THE SYMBOL IF IT IS NOT FOUND. 
: CALLING SEQUENCE: 
: JSB MACSINSUSRSYMTB | 
> OR JSB MACSSRCUSRSYMTB | 
: INPUT PARAMETERS: | 
: MACSAB_TMPSYM CONTAINS: BYTE SYMLEN. .ASCII/SYMBOLNAME/ | 
: MACSGL-HSHVAL THE HASH VALUE FOR THE ACCUMULATED SYMBOL 
: R3 HASH TABLE ADDRESS IF EN NTRY i sacss CSYMTA | 
: R5 POINTER TO LINKED LIst AT MACSS ST 
: R6 POINTER TO WHERE R SOINTS” " RENTRY AT MACSSRC_LIST 
3 YOU NEED THE PREV. POINTER RETURNED 
> OUTPUT PARAMETERS: | 
: RO 0 NOT FOUND 
: 1 FOUND 
: R1 SYMBOL BLOCK ADDRESS IF FOUND 
: R2 POINTER TO PREVIOUS SYMBOL BLOCK 

-ENABL LSB 
MACSSRC_LIST: ENTRY TO SEARCH LINKED LIST 


00020100 8F CA 
0 NOT INSERT 
O1FO or 


| 
} 
“BICL2 #FLGSM_ORDLST!FLGSM_ INSERT" - NOT OR DERED LIST | 
PUSHR #*M<R4,R5,R6,R7,RB> ;SAVE™ "REGISTERS | 
30$ : JUMP | 

| 


BRB INTO COMMON CODE 
MACSSRCSYMTAB: : y TO SEARCH ARBITRARY TABLE 
00020100 8F CA BICL2 #FLGSM_ORDLST!FLGSM_ nse RY OPLODE TABLE IS NOT ORDERED 
(R11) D 60 NOT ALLOW INSERTION 
1 1 BRB 20$ 
MACSINSUSRSYMTB: : sENTRY TO INSERT IN USER SYMBOL TABLE 
06 68 #(08~=««€3 BBCS $#FLGSV_INSERT,(R11),10$ :SET INSERT FLAG 
04 «11 BRB 10$ : JOIN CORPON. CODE 


SNAP D PATTI BB BE BB NWN NAINA NIAAA AWA AIA AIA AIA AIA AINA Oe 


WOO NWFP OOALSOOCOMIANUOFr Pr PP rr rrryYrrrrrrr>rrrr>rrrrrrrr>rr>rr,rr Yr} 
SDODWNA UNE WN OS OO NAUE WIN OC OD NOAU EWN O OONOA UE WN O OONOU FSW OOONOUS CZ 


POPPI PIPIMIPIPPINIPIPIPINININIPYPINININININININIPINININIPIPPUPIPINPYAIPUPONOPoPofononopononopopnopofnopnrrrnrn “Zz 


COOSOOOCOOOCOCOOCOCOOOCOCOCOCO SCO OOOO OOCOCOCOCOCOOOCCOOOCOOC OOOO OOOO OOOOOOOOOOoOO 


:E 
:§ 
‘J 
MACSSRCUSRSYMTB: : SENTRY TO SEARCH USTR SYMBOL TABLE | 
00 68 08 E5 BBCC © #FLGS$V INSERT (R11),10$ :DO NOT INSERT IF NOT FOUN | 
53 0000'°CF § 10$:  MOVAB W*MACSAL_USYHSHTB,RS iPICK UP SYMBOL HASH TABLE ADDRESS 
om TT € BBCS #FLGS$V “ORDE ST Crit: 20$ :USER SYMBOL TABLE IS ORDERED 
1F0 8B 208: PUSHR #*M<R4G-R ,R7,R8> TSAVE REGISTERS 
54 Q000'CF OD MOVL W*M hes HSHVAL.R4& [GET HASH VALUE FOR SYMBOL 
56. 6344 «OD MOVAL tes) 'GET ADDRESS OF PREVIOUS SYMBOL 
$6 D MOVL  (RO),R5 :POINT TO FIRST S 
B 1 BEQL  70$ [IF EQL NOTHING IN BUCKET 
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9900" tr 9E 75 30$: MOVAB W*MACSAB_TMPSYM,R7 ;POINT TO TEMP SYMBOL NAME 
7 oA i. MOVZBL (R7)+,R sGET # CHARS IN NEW SYMBOL NAME 
7D 4 : : CHAIN THROUGH A id LOOKING FOR THE SYMBOL. GET OUT IF WE FIND 
7D 5 ; 1T OR IF WE FIND A SYMBOL LARGER THAN THIS ONE, SINCE THE BUCKETS 
4 § ; ARE LINKED FROM SMALLEST 16 LARGEST. 
50 04 A5 QA 7D 3 os le Syms WA NAME (R5),RO ; Get offset to syabet count/name 
50 Hy 0 3 1 5 SUBL 3; and form its address 
1 A 5 60 yal Rone ; Get symbol size ond advance pointer 
60 51 00 67 ep 8 561 CMPC RS (RPS ,#0,R1, (RO) : Match the symbols 
1 66 QL 75§ : Branch if symbol found 
OA 1F 65 50$ BLSSU 65$ z1F Ma LSSU THE ONE IN THE TABLE 
9 64 : THEN GET OUT. 
28 55 dO 9 65 60$ MOVL R5,R6 :BRING UP THE BACK POINTER 
5 65 08 9 66 MOVL SYMSL_LINK(RS) ,R5 Link to next £ gysbet block 
ia 98 56 BNEQ 40$ uF NEQ GO G 
06 «171 oA 569 BRB 70$ 3; Symbol not gy eiF 
: L Ve L . s Py L | 
F2 6B 11 E1 0 be 259 65$ BBC #FLGSV_ORDLST,(R11),60$ ;BR IF NOT ORDERED LIST 
O2A0 72 ; THE SYMBOL IN QUESTION IS NOT IN THE BUCKET | 
06 6B O 4 Q2A0 574 70$: BBSC #FLGSV_INSERT,(R11),80$ ; ; SYMBOL NOT ha ape WE INSERT? 
00A 1 O2A4 575 BRW 160$ ;NO--GO bboy NOT Age “y 
0092 31 O9A7 57675$: BRW 1208 ‘FOUND IT--GO FINISH 
57 0000' CF f O2AA 577 80$: MOVL W*MACSGL_SYMPGPTR,R7 SYES==GET th TO UFRRENT PAGES 
41 1 3 af 278 BNEQ 100$ iI1F NEQ GO USE THEM 
0281 289 ; ALLOCATE PAGES FOR THIS BUCKET 
00001400 a bp oer 38¢ Sos: PUSHL #<512*STBSK_PG_MISS> STACK, SIZE OF BLOCK WE NEED 
0000' CF SF 8 BA 584 PUSHAB W*MACSGL_BASEADDR > STACK RESULT LOCATION 
52 0D BF 585 PUSHL R STACK ADDRESS OF SIZE 
00000000 ' GF 02 FB O2C 586 CALLS #2,G*LIBSGET_VM SALLOCATE BLOCK 
3 dS C7 587 TSTL (SP) + sKEEP STACK CLEAN 
7B E9 C9 588 BLBC RO,150$ ;I1F LBC ALLOCATION FAILU 
50 0000'CF 0 02cCc 434 MOVL W*MACSGL_SYMPGPTR,RO ;GET LAST PAGES ALLO 
05 1 D1 90 BEQL s1F EQL THIS IS reer ALLOCATE 
0000'CF 60 O€ D3 591 INSQUE (RO) ig SYM_PAGL ;LINK INTO SYMBOL P L 
0000' CF 06 D8 236 92$: INCL W*MACSG SYMPGREQ™ ;COUNT ANOTHER OtMBOL paces GET 
50 000'CF D0 oc 59 MOVL WoRACSCCD ~BASEADDR, RO +48 ADDRESS e BLOCK ALLOCATED 
4 E1 94 MOVL RO,R ;COPY ADDRESS FOR LATER 
0000'CF 4 E4 95 MOVL RO, W*MACSGL_SYMPGPTR i STORE POINTER TO CURRENT PAGES 
80 13F8 8F C 44 38 MOVZWL Peele STOSR _PG -MISS>~B>, ( RO) vwist*Saneen’ of bytes in block 
80 04 AO 9E : 205 MOVAB 4(RO), (RO)+ : STORE POINTER TO FIRST SYMBOL BLOCK 
: ret ; SYMBOL PAGE IS POINTED TO BY R7 
F 60¢ 100$: 
9900" cr 9E F Ft MOVAB W*MACSAB_TMPSYM,RO ; Get address of new symbol count/name 
1 0 9A F 604 MOVZBL (RO : Get symbol count and advance pointer 
= oy FA on? CMPBoR'1 , #SYMSK_TWOCOL ; Will 2 column symbol table be required? | 
4 19 OoFD 6 6 BLSS —-:116$ No if LS | 
00 68 A €2 FF 60 BBSS #FLGSV_SYM2COL, (R11), 1108 ; Set bit for 2 column symbol table 
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608 1108 
2} D 6 INCL R1 : Include count byte in Length 
7 et 610 ele R1,(R7) : Subtract length and 
7 OD ‘ 8 611 SUBL SRIWOKBLESIZ (AIDS 3; and fixed part from bytes in block 
AG o1¢ BLSS 90$ ; If LSS no space left so get new block 
5 9 ) Od 61 MOVL (R7),R8 ; Get new block address 
6 ‘oe 19 614 ADDL2 1, (R7) : Add size of this block to figure 
of D 1 615 ADDL #SYMSK_BLKSIZ,(R7) 3; address of next 
1 18 018 MOVB R1,-(SP) ; Save total Length 
68 g 1 1 61 MOVCS R1,(RO), (RB) 3; Copy symbol count/name into block 
53 OD 1D 018 MOVL R3,R8 3; Set proper block address 
m $6 D 9 6 MOVL  (R6),(R3)+ : Link new symbol block 
6 D 0 MOVL RB, (RO) : into bucke 
BE 4 8 621 MOVB ($P)+, (R3)+ 3; Store name offset 
83 O000'CF oD é ¢ MOVL  WMACS$GL_VALUE,(R3)+ : Put symbol value in 
Ht 4 6 CLRW th ; Clear symbol's flags 
4 624 CLRB (R3)+ 3; Token value 
83 O000'CF 90 0 ? 5 MOVB W*MACSGL_PSECT, (R3)+ ; Segment number 
51 58 00 8 7 6 5 MOVL R8,R1 3; Point to symbol block 
03 11 03 A 6 8 BRB 146$ SEXIT ROUTIN 
8 : ° ? ; SYMBOL WAS FOUND IN THE TABLE 
51 55 00 O33 4 : 120$: MOVL  R5,R1 :POINT TO SYMBOL BLOCK 
50 01 9A O0335F 6 140$: MOVZBL #1,R0 sRETURN SUCCESS 
52 56 dO Oaee 634 MOVL R6-R2 ;POINT TO PREVIOUS SYMBOL 
08 11 O34 635 BRB 170$ SEXIT ROUTINE 
0347 636 ; 
b3e) 638 3; PAGE ALLOCATION FAILURE 
FCB6" 31 O34? $73 150$: BRW MACSERR_NOMEM ;NO MEMORY--GO REPORT ERROR 
03a eh ; SYMBOL NOT FOUND AND NOT INSERTING 
50 7C 034A gg 160$: CLRQ RO ;RETURN O ON FAILURE 
52 56 dO se 644 VL R6,R2 ;RETURN POINTER TO PREVIOUS 
O1FO 8F BA 4F 645 1708: POPR #*M<R4,R5,R6,R7,R8B> sRESTORE REGISTERS 
05 0353 646 RSB 
0354 647 
0354 648 -DSABL LSB 
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4 0 -SBTTL MACSREGIS SEE IF THE SCANNED SYMBOL IS A REGISTER 
1 888 
4 655 ;++ 
34 694 ; THIS ROUT INE CHECKS THE SYMBOL NAME TO SEE IF IT IS A REGISTER. 
4 655; RB WILL BE O IF IT 1S NOT, AND NON-ZERO IF IT IS. R1 WILL 
4 228 ; CONTAIN THE VALUE. 
4 658 
4 659 MACSREGIS: 
55 9000" cE 9 0354 660 MOVAB W*MACSAB_TMPSYM,R5 :POINT TO SYMBOL LENGTH+NAME 
02 O01 85 BF 59 661 CASEB (R5)+,#1782 'SEE IF 1-3 CHARACTER NAME 
99 9° 035p 6 : 10S: «WORD 308-108 :ONE= CHARACTER NAM 
O12" O35F 66 “WORD 40$-10$ t TWO-CHARACTER NAME 
003A" é 664 -WORD 70$-10$ : THREE=CHARACTER NAME 
6 666 : DEFINITELY NOT A REGISTER=-RETURN 0 
58 «D4 «(0363 «= 668 20S: CLRL sR sRETURN 0 FOR NOT A REGISTER 
05 0365 669 RSB 
0366 670 ; 
366 671 : ONE CHARACTER NAME--IS IT ''.''? 
2 65 ~«(91 itt $78 S0s: CMPB ss (RS) , #*A/./ i1S SYMBOL CURRENT PC (.)? 
FB 12 «0369 «= 674 BNEQ 0$ NEQ 
58 12 9A 0368 675 MOVZBL #DPC,R8 «TES RETURN TOKEN FOR PC 
og ee 
O36 of8 3; TWO CHARACTER NAME CAN BE RO-R9, SP, PC, AP, FP, IV, OR DV 
20 65 02 39 O36F 680 40$:  MATCHC #2,(R5), #10 CHR_REG_SIZ,- ;SEE IF A REGISTER 
0000' CF 0373 «681 TWO_CHR_REG_N 
EB 12 03% 68¢ BNEQ 208 :1F NEQ NOT IN TABLE 
£8 52 EB 0378 68 BLBS 2,208 :IF LBS THEN NAME IS LAST CHA 
0378 684 : OF ONE REG AND FIRST MOF ANOTHER 
0378 685 : (EX. PP, CA) 
52 0 C6 0378 686 DIVL #2, R2. [FIGURE BYTE INDEX 
OF 52 C3 O37E 68 SUBL [FIGURE INDEX INTO TWO_CHR_REG_VAL TABLE 
51 00000020'EO 9A 038 688 MOVZBL Pitts: rt _REG_VAL(RO).R1;PICK UP THE REGISTER VAL uvE 
58 1 9A 038 689 50$: MOVZBL #RRREG ;RETURN TOKEN OF REGIST 
56 8F 6001 AS.) —so91s«O3B8C = 4690 CMPB s.1(R5) ,#*A/4/ ZUNLESS 'IV" OR "DV" 
| £4 0391 691 BNEQ REG CREF [IF NEQ NOT 'IV' OR "DV'=-SEE IF CREF 
58 32 9A 0393 69 MOVZBL #OMASK,R8 :*IV" OR 'DV'=-TOKEN IS DMASK 
05 0338 693 60S: RSB 
0 97 699 : THREE CHARACTER SYMBOL NAME CAN BE R10-R12 
3152 8F 68S) 97 $99 70$: CMPW 3s (R5)) +, #*A/R1/ i1S IT A REGISTER? 
5 if 9¢ 698 BNEQ 208 SIF NEQ N 
51 65 30 8 9 : 9 SUBB3 - #*A/0/, (RS), R1 SYESMTGET V LUE IN 
F 19 O3A 00 BLSS 208 SIF LSS THEN NOT NECISTER 
02 51 91 O83A4 701 CMPBseéR1,#2 [IN RANGE? 
A 14 O3A7 7 : BGTR 20$ [IF GTR NO 
51 OA 80 Ao? ADDB2 #10.,R1 [YES=--ADJUST REGISTER VALUE 
58 4631S 9A «COBAC. 708 MOVZBL #RRREG,RBS TRETURN TOKEN IS REGISTERS 
51 1 9A O3AF 705 MOVZBL TEXTEND REG. NUMBER TO LONGWORD 
0382 706 ;**; BRB REG_CREF [SEE ABOUT CREF AND RETURN 


a 9 


ma $5 ANER SCANNING ROUTINES 16-SEP-1984 214: AX/VMS Macro v04-00 Page 1 
yOL SON MACSREGIS SEE IF THE SCANNED SYMBOL IS A g7 9b 138e oF: 749: 19 MACRO.SRCJSCANER.MAR; 1 (1 
7 3 p++ 
70 ; FUNCTIONAL DESCRIPTION: 
ay : THIS ROUTINE CROSS-REFERENCES REGISTERS IF REGISTER CROSS-REF 
at 3 IS ENABLED. 
gig + INPUTS: 
216 : R1 REGISTER NUMBER 
717 ; 
ag 
720 REG_CREF: 
68 0000'CF 03 E1 721 BBC #CRFESV_REGISTERS,W*MACSGL_CRF_FLG,30$ ;BRANCH IF NOT CREFFING REGS 
64 6B iF EO f ‘ BBS ai LGSV_ “XCRF, (R115, 30$ pitt Fringe save I. .NOCROSS ON 
55 00000030'EF41 Bp 724 MOVL L“MACSAL_RGNM_TABCR1], RS- ine. R5 TO REGISTER SYMBOL BLOCK 
08 AS D 725 INCL hat AC(RS)~ REGISTER REFERENCES 
18 09 AS 9D ee 4 § ratty wSTNST CRFO,SYMSW “Fuascni) 108 ike BRAN otaeh INSERT DONE 
05 3 oF 0 728 PUSHAB SYMS$L_VAL(R5) gy TO” vate WORD 
50 04 A5 9A 8 729 MOVZBL SYM$B_NAME(R5),RO ; Get offset to symbol name/count 
7E bb00 eF C3 730 RO,R5,-(SP) and form its address on gyeck 
oF 0 731 PUSHAB W*MAC$AL CRFRGCTB STACK CONTROL TABLE ADDRESS 
00000000' ore oe FB rg CALLS #4,G*CRFSINSRTIKEY S INSERT REGISTER KEY 
00000000' DD a3 10$: PUSHL &#CRFSK_REF [THIS IS A REFERENCE 
00 DD 8 734 PUSHL # ;ASSUME READ REFERENCE 
50 0000' CF 00 9 I) pout W*MACSGL_MOPPTR,RO tid ek nor in nSTOtTiCg 
A 
60 0060 Bf HH 8 a4 site spR OSA. MODIFY!OPDSM awrite (nD) ;MODIFY OR WRITE REF? 
6E 03 pd 0 739 MOVL #1, (SP) sYES--SET WRITE REFERENCE 
0000' CF oF 0 740 20$: PUSHAB W*MACSAB SREFERENCER NAME ADDRESS 
50 04 A5 9A O 741 wiley SYM$B SNARE (RS) , RO ; Get offset to symbol name/count 
7E >; Se ¢€ 8 re SUBL RO,R SP) 3 and form its address on stack 
0000'CF oF 74 PUSHAB URACEAL CRFRGCTB 3; CREF CONTROL * TABLE ADD 
FBEE’ 30 0O 744 BSBW MACSCVT CIN_PAG sCONVERT LINE/PAGE INTO LPBUF 
00000000 ' GF 0 FB 0 745 CALLS #5,G*°CRFSINSRIREF s INSERT REGISTER REFEREN 
0000' CF D6 0 746 INCL W*MACSGL_ CRF _RCNT s;COUNT REGISTER REFERENCE 
51 8—EDO O 747 POPL R1 ;RESTORE REGISTER NUMBER 
05 O 748 30$: RSB 
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rs ! 73 -SBTTL MACSDNUMBER ACCUMULATE DECIMAL NUMBER 
421 752 ++ 
re : 4 7: FUNCTIONAL DESCRIPTION: | 
421 4 5 : This routine accumulates a decimal octaword value in 
421 § $ MAC$GO_VALUEO 
4 1 a see | 
421 7 8 
421 759 MACSDNUMBER: : 
5 4 421 760 PUSHL Rg sSAVE R6 
2 C 4 761 CLRQ R : Clear R2, R3, R4, RS 
7C 04 166 CLRQ R4 3; to accumalate octaword number 
52 DO AA 9E re . 3 MOVAB =*A/0/(R10),R2 ; Convert first digit to binary 
oe B 765 : LOOP, COLLECTING THE VALUE | 
428 £06 : 
0428 767 10S: 
52 43 0428 768 PUSHL R2 . : Save R2 
FBDO' 30 042d 769 BSBW MACSGETCHR ; Get next character 
52 BEDO 04 : 770 POPL 3; Restore R2 
51 DO AA 3 043 771 MOVAB =-*A/0/(R10),R1 ; Convert digit to binary 
51 1 0437 77 BLSS 20$ 31F LSS THEN WE ARE DONE 
09 51 91 +0439 77 CMPB R1,49 3; Check if really a digit? 
4c 14 043¢ 17h BGTR 208 [IF GTR NO 
O3E 776 : Multiply accumulated value by 10 and add in new digit | 
0380 8F 6B 043 ore PUSHR #*M<R7,R8,R9> : Get some more work registers | 
O44 780 : Multiply 1st longword by 10 and add in new digit 
50 51 53 OA 7A 0442 7 é ” EMUL  #10,R2,R1,RO : Put 10*1st Longword into RO,R1 
03 5 1F €1 044 7 BBC #31.R2.12$ : If sign bit set compensate for 
51 OA CO peas re 128 ADDL #10,R1 3 unsigned bias of 2**32 
56 50 7D O044E 786 "mova sO RG : Accumulate result in R6,R7,R8,R9 
58 7C 0451 787 CLRQ R8 
045 788 ; 
Bee 44 ; Multiply 2nd Llongword by 10 | 
50 00 23 OA 7A O43 791 ° EMUL #10,R3,40,R0 : Put 10*2nd longword into RO,R1 
03 5 1F €1 04658 64 BBC #31.R3.14$ : If sign bit set compensate for | 
51 OA CO be3t oe? 148 ADDL #10,R1 ; unsigned bias of 2**52 
57 50 CO 045F 795 |  ADDL2 RO,R7 : Add value into 2nd and 3rd longwords 
3s St ret P36 ADWC R1,R8 ; of octaword result | 
465 798 : Multiply 3rd logword by 10 
50 00 54 OA 7A 0465 800° EMUL  #10,R4,#0,RO ; Put 10*3rd Longword into RO,R1 | 
03 54 1F €1 046A 801 BBC #31,R4.168 : If sign bit set compensate for 
51 OA CO 3] 8 168 ADDL #10,R1 ; unsigned bias of 2**32 
58 39 CO 0471 64 : ADDL2 RO,R8 ; Add value into 3rd and 4th longwords | 
59 1 08 rth 82 ADWC R1,R9 : of octaword result 


B 10 


+> ea SCANNING ROUTINES 16-SEP-1984 06: 1331? yaxeyns Macro v04-00 Page 19 | 
v04-000 MACSDNUMBER ACCUMULATE DECIMAL NUMBER -SEP=-1984 49:51 MACRO.SRCJSCANER.MAR; 1 (11) 
AS o8 ; Multiply 4th lonword by 10 
50 23 9A ¢5 ra : MULL #10,R5,R0 ; Put 10*4th lLongword into RO 
9 50 €0 478 10 ADDL2 RO,RO * : Add value into 4th Longword of result 
52 6 7D O47 1g i MOVQ = RG, R2 ; Position result for next loop 
4 7D 481 1 mMOVQ RB,RS 
0380 8F BA 0484 14 POPR #*M<R7,RB,RI> 3; Restore registers 
11 r ; 1? BRB 10$ ;LOOP FOR ALL DIGITS 
4BA i$ > NUMBER IS ACCUMULATED 
tba 819. 508 
QOOO'CF 52 7D 4BA 0  — «~-MOVQ ~=R2,, W*MAC$GO_VALUEO ; Store value in VALUEO 
0008'CF 54 7D 48F 1 MOVaQ RG /W*MACSGO_ VALUEO+8 
OOOO'CF 53 DO 0494 ¢ MOVL R3,W*MACSGL— _HIGH_32 ; Set high 32 bits in case .QUAD 
0000'CF 2 Beep Ree 7 pore R4, W°MACSGO~ ~HIGH_64 baiftone nee bits in case .OCTA 
58 ge 9A Q4A1 BS? MOVZBL SOLWIEGEE RE ; TOKEN IS INTEGER 
24 ge 3} Rens 4 § Hag R10, #*°A/$/ :D1D WE ~* CONVERT LOCAL LABEL? 
FB54° 30 4A 828 BSBW MACSGETCHR sYES--SCAN PAST IT 
09 11 O4AC 829 BRB MACSGOTLOCLAB ‘AND GO PROCESS THE LOCAL LABEL 
2E 38 9} Beat Bay 30$ ai R10,#°A/./ TRAILING PERIOD IN VALUE? 
FB4A* 31 0483 Bag BRW MACSGETCHR S YES=--SCAN PAST IT 
05 0486 833 40$: RSB 


lr —EE ee 


16-SEP-19 214:19 Yereyas Macro V04-00 
362 $82 69: 749:51 (MACRO. SRe SCANER.MAR; 1 


MACSGOTLOCLAB PROCESS LOCAL LABEL 


:++ 
; FUNCTIONAL DESCRIPTION: 


THIS ROUTINE IS CALLED WHEN A LOCAL LABEL IS ENCOUNTERED. 


MAC$GQ_VALUEQ 


BAL SRCANER SCANNING ROUTINES 
V04= MACSGOTLOCLAB PROCESS LOCAL LABEL 
487 5 ~SBTTL 
487 § 
487 ; 
487 § : 
487 ; 
cy Bat: 
487 rt: ; INPUTS: 
4B7 45 ; 
487 44 ; 
sig ate 
487 19 MACSGOTLOCLAB: 
20 00 6E 00 48 MOVCS 
0000' CF 49 
51 Q000'CF 50 MOVAB 
81 06 51 MOVB 
52 Q000'CF 26 MOVL 
81 52 5 MOVL 
81 Q000'CF 854 MOVW 
52.71 855 ADDW 
QOOO'CF 52 FFFFFF rr B28 Bick 
0040 8F 858 BISw2 
oF 859 OVL 
3D SA 860 CMPS 
68 OD 86, BBs 
58 8=60C 863 20$: MOVZBL 
864 $B 


DECIMAL VALUE OF THE LOCAL LABEL 


#0, (SP), #0, #SYMSK MAXLEN+1, - ;ZERO TMP SYMBOL BLOCK 
AMACSAB_TMPSYM; ... 
Weeks TMPSYM,R1 sPOINT TO Jee. BLOCK 


’ )+ sNAME IS 6 CH 

w* AACSGL_ LSB,R2 ;GET LSB NUMBER SYMBOL IS IN 
R2,(R1) ;STORE AS FIRST 4 CHARS vr NAME 
WmACSca _VALUEQ, (R1)+ e218 AND 6TH CHARS AR 


E VALU 
=(R1),R ACCUMULATE HASH VALUE FOR SYMBOL 


pccHAsts7>, R2,W°MACSGL -HSHVAL : TRIM TO HA 


SH SIZ 
MACSINSUSRSY N USER SYMBOL TABLE 
#SYMSM LOCAL, SYMSW_FLAG(R1) ;FLAG AS LOCAL LABEL 

R1 ,WAMACSGL_ ; 1S ADDRESS OF SYMBOL BLOCK 
R10, #*A/=/ ZASSIGNMENT OF LOCAL SYMBOL? 

208 :1F NEQ NO 

#FLGSV_OPRND,(R11),20$ :YES=-FLAG IN OPERAND FIELD 
#1D,R8 :TOKEN TYPE IS ID 


p Oo. 
age 99, | 


vo 


OAT SRCANER 
v04-000 


5 1 
OY 
11 
55 
a 
09 
55 
54 46 BF 
SA 
0000'CF 
51 0000'CF 
61 
08 Al 
50. 0 SA 
30 =50 
50 
61 8F 50 
9 
7A 8F 50 
50 0 
$4 0 
¢ 
39 0 
A 
41 8F 3 


SCANNING ROUTINES 19-SEP-1984 02: £16:19 YAX/VMS Macro v04-00 
ACCUMULATE BINARY/OCTAL/HEX NUMBERS =SEP=1984 01:49:51 YRACRO SRe SCANER.MAR; 1 
arc 66 .SBTTL ACCUMULATE BINARY/OCTAL/HEX NUMBERS 
FC 68 MACSBINNUM: : 
9A O4FC $ MOVZBL #1,R5 7SET LOG(2) ADIX 
9A O4FF 0 MOVZBL #*A/1/ :SET UPPER CHARACTER BOUND 
11 302 4 BRB MACSPNURGER :GO ACCUM NUMBER 
be ig MACSOCTNUM: : 
9A 304 74 MOVZBL :SET LOG(2) OF RADIX 
9a 0507 875 MOVZBL #*A/7/,R4 ‘SET UPPER CHARACTER BOUND 
11 308 2 BRB MACSPNUMBER 
ape 4 MACSHEXNUM: : 
9a 050¢ 4 MOVZBL #4,R5 :SET LOG(2) OF RADIX 
9A 050F 80 MOVZBL #*A/F/,R4 ‘SET UPPER CHARACTER BOUND 
11 051 81 BRB MACSPNUMBER 
51 8¢ 
51 885 ;++ 
Bate Hf : FUNCTIONAL DESCRIPTION: 
0519 886 : THIS ROUTINE ACCUMULATES A NUMBER OF AN EVEN RADIX. 
0515 888 ; INPUTS: 
0515 889 : 
0515 890: R5 LOG(2) OF RADIX 
0515 891: UPPER CHARACTER BOUND 
0515 89¢ : 
0515 893 ; OUTPUTS: 
0515 894; 
0515 895 : MACSGO_VALUEO ACCUMULATED VALUE 
0515 896: RB TOKEN VALUE 
0515 897 : 
0515 898 :-- 
0515 899 
0515 900 MACSPNUMBER:: 
pd 0515 901 PUSHL R10 ;SAVE THE CURRENT CHARACTER, 
DD 0517 90¢ PUSHL W*MACSGL_LINEPT + AND LINE POINTER (iN CASE WE 
0518 90 : ACTUALLY SCAN A LOCAL SYMBOL) 
9E 0518 904 MOVAB W*MAC$GO_VALUEO,R1 ; Point to value octaword 
7C b255 905 CLRQ (R1) ; Clear result octaword 
7¢ «05 : 906 CLRQ =: BRI) 
05 907 ; 
09 5 908 + LOOP AND COLLECT THE VALUE 
D0 §2 2 910 10s: MOVL _R10,RO :GET NEX xT CHARACTER 
91 0528 911 CMPB Ss RO, #*A/0/ 71S 11 A DIGIT? 
19 0528 ge BLSS —-_- 408 :IF LSS NO 
91 05 dD «91 CMPB) =—s RO, #*A/A/+*X20 [1S CHARACTER LOWER-CASE ALPHA? 
1F 0531 «914 BLssu. 15 [IF LSSU NO 
91 05 3 915 CMPB RO #*A/1/4*X20 :MAYBE... 
1A 05 916 BctRU 15$ [IF GTRU NOT LOWER-CASE ALPHA 
BA 0539 «91 BICB2 #*x20,R0 i VES OMAKE UPPER CASE ALPHA 
91 053c 918 15$: CMPB sO, R4 ‘WITHIN RANGE FOR RADIX? 
14 O53F 91 BGTR 40 SIF GTR 
91 0541 920 CMPB se RO, #*A/9/ : ABOVE THE DIGITS? 
15 0544 921 BLEQ © 208 TIF LEQ N 
91 0546 922 CMPB ss RO, #*A/A/ TYES--1$ IT ABOVE LETTER ‘A'? 
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SCANNING TINES 16-SEP-1984 14:19 VAX/VMS Macro Vv04-00 Page 
ACCUMULATE BINARY/OCTAL/HEX NUMBERS eet 84: 49: 1 MACRO.SRCJSCANER.MAR; 1 ° hie 
31 19 056A 3 BLSS 408 ;I1F LSS NO=-NUMBER IS DONE 
F9 AO =—9E «054 4 MOVAB =7(RO),RO SYES="HEX ALPHA CHARACTER=-7 Is 
5 : DIFF BETWEEN 9 AND A 
DO Ag of : 208: MOVAB =ghZQ/ (RO) .RO :CONVERT DIGIT TO BINARY 
ae | See 3 4 oe MOVL RS,R :SET UP LOOP COUNT 
5 5 Dd : , : MOVL R1,R2 ; Reset yore Ag ney 
8 62 ¢ A 930 ADDL2 (R2),(R2)+ : Multipl 
65 DB 0550 «981 ADWe, (RD) (RD) 4 S oad blak shen abd ones 
B82 62 OD 360 9 : ADWC (RO), (R2)+ =~ 
6 D8 0563 9 ADWC (Re), (Re) eek 
EE F 366 934 SOBGTR R3,30$ : Loop for radix 
5 1 00 6 935 OVL R1,R2 ; Reset work getnter 
8 50 cP 056C «9 § ADDL2 RO,(R2)+ ; Add in new digit 
8 00 OD Bago 9 ADWC #0, (R2)+ ; add carry 
82 00 D8 05 é 938 ADWC =: #0, (RO) + bees 
62 00 p 097 939 ADWC 3s: #0, (Ro) eee 
FA8S' 30 0578 940 BSBW § MACSGETCHR ‘GET NEXT CHARACTER 
AB 11 0578 941 BRB 10$ : CONTINUE 
0570 34¢ : 
b220 + ; NUMBER IS ACCUMULATED 
24 SA 91 0570 945 dos: CMPB =—s«R10, #*A/$/ :DID WE JUST SCAN A LOCAL LABEL? 
15 13 0580 946 BEQL tIF EQL YES--GO FIX UP 
58 22 OA 0982 947 MOVZBL #DINTEGER,R8 “NO=-RETURN INTEGER TOKEN 
QOOO'CF O000'CF D0 098 948 MOVL  W*MAC$GL OAL, W°MACSGL_HIGH_32 ;SAVE HIGH 32 BITS 
Q0000'CF O000'CF 7D 05 ¢ 949 MOVQ W*MAC$GQ~VAL2,W*MACSGO— “HIGH “64 : Save high 64 bits 
5E 08 cO 0593 950 ADDL2 #204 $P s CLEAN éTACK 
05 0996 951 RSB 
0597 985 ; IT APPEARS THAT WE ACTUALLY SCANNED A LOCAL SYMBOL. THIS CAN HAPPEN 
0597 994 ; WHEN SOMETHING LIKE '*0<12+47$+12>'' OCCURS. 
0000'CF BEDO 0597 956 Sos: POPL W*MACSGL_LINEPT ;RESTORE LINE POINTER 
5A BEDO 059C 957 POPL = R1 SRESTORE CHARACTER 
FE7F 031 059F 998 BRW MACSDNUMBER :GO RESCAN AS DECIMAL NUMBER 
05A2 960 END 
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MACSSCANER SCANNING ROUTINES 16-SEP-1984 02:14:19 VAX/VMS Macro V04-00 Page 25 | 
Symbol table -SEP-1984 8551938) tn CRO.SRCJSCANER.MAR; 1 ° 3) 
KSAVE = 68 MACSGL_SYMPGREQ eeeereee é OPDSM_WRITE = 9 
KSBTTL 2 $8 MACSGL_SYM_PAGL ‘teeeeee x OPD$S_MODE = 
KSGNB : a MACS$GL_ eeterere =X 5 OPD$S_SIZE = 
GNW 2 : 43 MACS$GL_ VALUE eeeeeree =X 5 OPD$V-D_FLOAT = ° 
KTITLE s MACSGOTLOCLAB 00000487 R 5 OPDS$V—FCOAT = 0000 
KVECTOR = ? MAC$GO_VALUEO eeeeeree =X 5 OPD$V-G_FLOAT = 0000000 
KWARN = MAC$GQ"HIGH_ 64 ‘eeeeere x 5 OPD$V_H-FLOAT = 3 0000 
KWEAK = 00 ¢ MAC$GQ_V. aeeeeere =X 5 OPD$V_MODE = 0000 
KWORD = 0000 4 MAC$GQ- VALUEQ aeeeeree =X 5 OPD$V"SIZE = 00 444 
KXFER = 000000 ERN 0000050C RG 5 OPFSM-LASTOPR = 0000200 
= 00000004 MACSIMPLMCALL erettere =X 5 OPFSM_OPTEXP = 0000100 
LENSK_UPXTAB entrees 8 MACSINSUSRSYMTB 00000250 RG 5 OPFSV_LASTOPR = 444 
LENSK~ XUPTAB eeeeeree =X 5 MACSINTERR_2_ aeterere =X 5 OPF$V-OPTEXP = 00000 
LIBSGET_VM aeeereee =X 8605 MACSLCLSKIP OOOO11E RG 05 PSC$B_NAME 000000 
LSTSK_BOFSIZ = 00000086 MACSNUMBER B00 00 RG 05 PSC$B_SEG 000000 
ST$K_ PAGE = 000000 MACSOCTNUM 00000504 RG 05 PSC$B_UNUSED 000000 
LSTSK-TITCE_S1IZ= 0000002 MACSPNUMBER 0000515 RG 05 PSC$K_BLKSIZ 000001 
MACSAB_CMSK_ TAB seeenrere XK 05 MACSREGIS 0000354 05 C$K_NO_OPTNS = 0000000 
MACS. eeeeeeee =X 05 MACSSKIPSE eetereee 05 PSC$L_CURLOC 000000 
MACSAB_TMPSY1 eeneeree xX 05 MACSSRCSYMTAB 0000247 RG 05 CS$L_LINK 000000 
MACSAB_TMPSYM eeereeee =X 05 MACSSRCUSRSYATB 0000256 RG 05 psc “MAXLGTH 000000 
MACSAB_UPXTAB eeeeeeee =X 05 MACSSRC_LIST 0000023A RG 05 SC$M_ABS = FFFFFFF 
MACSAB_UPXTOKEN eeeeeeee Xx 05 CSSYMBOL 4 RG 05 PSC SM -ALIGNFLG = 0000400 
MACSAB_XUPTAB eeeeeeee = X 05 MACSSYMNUM 0000083 RG 05 PSC$M_ALLOPTNS = 000003F 
MACSAB_XUPTOKEN eeeeeee Xx 05 MACSSYMSCN 0000010C RG 05 PSC$M_BYTE = 0000400 
MACSAL_CRFRGCTB eeeeeeee x 05 MACSSYMSCNUP te: RG 05 PSC$M_CON = FRFFFFF 
MACSAL_PRMHSHTB seeeeeee =X = 05 MACSSYMSCNUP1 000000F9 RG 05 PSCSM_DEFAULT = 000001C 
MACSAL_RGNM_TAB 00000030 RG 03 MACSXPOUND QOOOO1FC RG 05 PSC$M_EXE = 000000C¢ 
MACSAL_UMCHSHTB seeeeeee =X = 05 MACSXSYMBL 00000099 RG 05 PSC$M_GBL = 0000001 
MACSAL_USYHSHTB eteeenee =X 05 MACSXUPARROW POOR 1! RG 05 PSCSM_LCL = E 
MAC$B1RNUM QOOO04FC RG 05 MACS_ILLSYMLEN = 00708820 PSC$M_LIB = 0 
MACSCHKREG 00000075 R 05 MACTRT = 00000000 PSCSM_LONG = 0 
MACSCHRERR eeeeeere =X = 05 MAC_SUBSYS = 00000070 PSC$M_NOEXE = B 
MACSCREF _DIR eeeeeeee =X 05 MB = 00000041 PSC$M_NOPIC = F 
MACSCVT_CIN_PAG eeeeeeee KX 05 MD = 0000048 PSCS$M_NORD = 7 
MACSCVT-SYM_UP 0000013F RG 05 MF = 00008044 PSCS$M_NOSHR s D 
MAC SONUABER 00000421 RG 05 MG = 0000A048 PSC$M_NOVEC = : 
MACSERR_NOMEM eeneeeee =X 05 MH = ait b8'Fa PSCSM_NOWRT z s 
MAC$GB_RDXNDX eeeeeeee =X = 05 ML = 00000044 PSCS$M_OVR = 0 
CSGETCHR teeeeeee =X 8605 MO = 00000050 PSCS$M_PAGE = 0 
MACS$GE TDOUBLE eeeeeeee =X = 05 MQ = 00000048 PSCSM_PIC = 0 
MA TFLOAT eeeeeeee =X B MW = BO ooR PSCSM_QUAD = 0 
MACSGETGFLOAT teenenee =X 5 NUM_TAB 0000002 R 05 PSC$M_RD = 8 
MACSGE THFLOAT eteereee =X be 0 = Be O86 1 PSCSM_REL = 8 
MACSGETSYM 00000171 RG 5 OBJ$K_BUFSIZ = PSCS$M_SHR z 
MACSGL_BASEADDR eeeeeeee x 05 OPD$M_ADDR = B008 00 PSCS$M_USR 2 F 
CSGL_CRF_FLG eeeeeee XX 05 OPD$M_BB = 000000A1 PSC$M_VEC = 0 
MACSGL_ CRF ma eeeeeree = X = 05 OPDSM_ = B8008« PSCSM_ = 0 
MACSGL“HIGA_52 eeeeeeee xX 05 OPD$M_D_ FLOAT = Q0O0C PSCS$M = 8 
MACSGL_HSHVAL eeeeeeee =X 33 OPD$M_FCOAT = 8 80 PSC$S = 0 
MACSGL_ ~UINEPT eeeereee =X 5 OPD$M-G_FLOAT = QOOOA PSC$V = 0 
MACSGL_LSB eeeeeeee =X = 05 OPD$M_H-FLOAT = 00009 PSC$V = 0 
MACSGL_MCLVL eeeeenee =X 3 PDSM_ = 00 53 PSC$V = 0 
C$GL-MOPPTR teeneeee § xX 5 OPDSM_MODIFY = 9 4 PSC$V = $ 
MACSGL _OPCLSTPT eeeeeree 9 OPDSM_NOT_32F = 00 PSC$V = 
MACSGL-PSECT teeeeeee =X 5 PDSM_ = 00 ones PSC$Y = 0 
MACSGL-SYMPGPTR teeeeeee x 05 OPD$M_VIELD = 00000080 PSC$V = 0 


1 10 


MACSSCANER SCANNING ROUTINES 1 = SEP-1984 02:14:19 VAX/ VMS Macro V04-00 Page 2 
Symbol table -SEP=1984 01:49:51 CMACRO.SRCJSCANER.MAR; 1 (13) | 
PSC$V_R = 9 7 SYMSM_DEBUG = 00000020 

PSCSV-REL = 3 SYMSM_DEF = 1 

PSCS$V-SHR = 00 SYMSM_DELMAC = 

PSCSV-VEC = 00000009 SYMSM_EPT = 

PSCS$V—WRT = 8 SYMSM-EXTRN = = 

PSC$W"FLAG 0 9 SYMSM_GL = 0 4 

PSC$W_OPT IONS 9 D SYMSM-LOCAL = 40 

Q = 8 YM$M_ODBG = 400 | 
RB = 00 1 YMSM_REF = 0 

RD 2 C028 SYMSM-RELPSECT = 00 

ROX$V_BINARY = 00 YM$M~SUPR : 4 
ROXSV“DECIMAL = 9 SYMSM~WEAK 2 99 
ROX$V“DOUBLE = SYMSM_XCRF a 1 
RDX$V-FLOAT = 00000004 SYM$V_ABS = 00000004 

RDX$V-GFLOAT = 0000000 SYMSV—ASN = 00000008 
RDX$V—-HE = 0000000 SYMSV~CRFO = 00000000 

RDX$V-HFLOAT = 0000000 SYMSV-DEBUG = == 9900005 
ROX$V-OCTAL = 00000001 SYMSV—DEF = 00000000 

BC = 0000000F SYMSV-DELMAC = 00000009 

EG_CREF 00000 é R 05 SYMSV—EPT = 00000009 

REG_SYMB_AP 00000187 RG 04 SYMSV-EXTRN = 00000003 | 
REG-SYMB_FP 000001A7 RG 04 SYMSV-GLOBL = 00000002 

REG-SYMB_PC 90000167 RG 04 SYM$V-LOCAL = 00000006 
REG_SYMB_RO 00 ; RG 04 SYM$V_ODBG = 0000000A 

REG_SYMB_R1 00000023 RG = 04 SYMSV~REF : 99000007 

REG-SYMB_R10 00000144 RG 04 SYMS$V-RELPSECT = 00000008 

REG_SYMB_R11 00000166 RG 04 SYM$V~SUPR = 0000000E 

REG-SYMB_R 00000043 RG 04 SYMSV WEAK = 00000001 | 

REG_SYMB_R 00000063 RG 4 SYMSV—XCRF = 0000000 

REG SYMB_R4 00000083 RG 4 SYMSW~FLAG 00000009 

REG-SYMB_RS 9000004 RG 04 AB = 60000009 | 

REG_SYMB_R6 00000C3 RG 04 TWO_CHR_REG_NAM 9000009 R 03 

REG-SYMB_R7 OOO00E3 RG 04 TWO-CHR-REG-SIZ= 00000020 | 

REG_SYMB_RB 00000103 RG 04 TWO_CHR_REG_VAL 00000020 R 03 

REG-SYMB_R9 900001 ; RG 04 vB = 00000081 | 

REG_SYMB_SP 001C7 RG 04 vD = 0000C088 

RF = 00008024 VF = 60008084 

RG = 0000A028 VG = 0000A088 

RH = 00009030 VH = 00009090 | 

RL = 00000024 VL = 00000084 | 

RO = 00000030 vo = 9000090 | 

RO = 00000028 va = 000000 

RRREG = 00000031 vr) = 0000008 

Rw = 00000022 = 9000 0 

SEMI = WB = 6 

STBSK_PG_ MISS = 9000004 WD = 990¢ 68 

SYM$B_NARE 00000004 WF = 8 64 

SYM$B_SEG 00C WG = 00 OA0G8 
SYM$B~ TOKEN 008 WH = 99090 0 

SYMSK-BLKSIZ Wh = 00 00064 | 
SYMSK-MAXLEN = 0000001F wO = 000000 

SYMSK-TWOCOL = 00000010 wo = 99000 

SYMSL_LINK Wh = 000 O86 

SYMSL~VAL x1 = 90000 

SYMS4_ABS 9 x2 = 000800 

SYMSM~ASN 


SYMSM_CRFO 
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PSECT name Allocation PSECT No. Attributes 
» ABS . 6° 00 <¢ -)» 00 ¢ 0.) NOPIC USR CON ABS Le. 
SABSS 0 1 ( 19.) ¢ ( §°} NOP IC USR CON ABS tet N 
MACSRO_DATA 00000070 (¢ 112.) ( a PIC USR CON REL GBL 
MACSRW_DATA B28 : 04 ¢ 218°} 4 ( 4.) NOPIC USR CON REL LCL 
e ° U L L 
MACSRO_ CODE _P1 A2 ( 1442.) 5 ( 5.) NOPIC SR CON’ RE GB 
geen er ew eon meer ern awa nmawraann 
! ;_Per formance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 9 00:00:00.04 00:00:00.8 
Command processing 125 es SS Sd 00:00:03.56 
Pass 1 276 00:00:05.37 99:99: 0.71 
Synbol table sort 9 00:00:00.71 Ba: 0: $-33 
Pas 18 00:00:01.72 0:00:07.89 
Symbol table output 51 00:00:00.26 83 +88 #20 «Bs 
Psect synopsis output 00:00:00.02 00:00:00.0 
Cross-reference output ea BO ee Bae 
Assembler run totals 67 00:00:08.5 00:00:36.32 


The working set Limit was 1500 pages. 
53269 bytes (105 pages) of virtual memory were used to buffer the intermediate cod 
There were 40 

source Lines were read in Pass 1, producing 


object records in Pass 2. 
17 pages of virtual memory were used to define 1 


macros. 


Macro Library name 


~$255$DUA28: MACRO. .OBJ JMACRO.MLB; 1 1 
$255$DUA28: SYSLIBISTARLET. MLB; 2 
TOTALS <all libraries) 1 


739 GETS were required to define 15 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:SCANER/OBJ=0BJ$:SCANER MSRC$:SCANER/UPDATE=(ENHS$: SCANER) +L1B$:MACRO/LIB 


SSEp=198e 01:49:51 


AX/VMS Macro V04-00 
MACRO. SRCJSCANER.MAR; 1 


pages of symbol table space allocated to hold 704 non-local and 75 focat symbols. 


NORD 
RD 
RD 
RD 
RD 
RD 


NOWRT NOVEC 


WRT NOVEC 
NOWRT NOVEC 


Page 


BYTE 


L 
LONG 


NT CORPORATION 
D PROPRIETARY 
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